(ask-user-about-supersession-threat): Don't abort when the user hits mouse-2.

diff --git a/lisp/userlock.el b/lisp/userlock.el
index 3b3d1fbd728ff279551f4f56eb51b7ddf95c8694..752c3bc90c7f36fb36393efae243a653e1628f8f 100644 (file)
--- a/lisp/userlock.el
+++ b/lisp/userlock.el
@@ -115,7 +115,7 @@ The buffer in question is current when this function is called."
        (message "%s changed on disk; really edit the buffer? (y, n, r or C-h) "
                 (file-name-nondirectory fn))
        (let ((tem (downcase (let ((cursor-in-echo-area t))
-                              (read-char)))))
+                              (read-char-exclusive)))))
          (setq answer
                (if (= tem help-char)
                    'help